APPENDIX B 



* * 

* Copyright 1996, 1997, 1998 - A-LIFE Medical, Inc. - All Rights 
Reserved. 

* 

* Program: LifeCode Medical Coding System 
* 

* File: c_t agger. lex 
* 

* Description: 

* This file defines the CPT tagger of the diagnosis sections. 



* */ 

#include <iostream.h> 
#include "keys.h" 

#ifdef LEXER 
#include <strstrea.h> 
#include <rw/cstring . h> 
class CPTCoderClass { 

private : 

RWCString text_str; 
RWCString key_str; 

public : 

void add_parse_text (char *orig, char *term) { 
text_str += term; 
text_str += " "; 

} 

void add_j)arse_key (int id, char *key) { 
text_str += " I " ; 
ostrstream ostr; 
char *id_str; 
ostr << id << ends; 
id_str = ostr.strO; 
key_str += id_str; 
key_str += key; 
key_str += " "; 
delete id_str; 

} 

void parse_procedure (void) { 
cout << text_str << endl; 
cout << key_str << endl; 
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text_str = 
key_str = ""; 

} 

void set_admit (void) { } 

void set_pa(void) { } 

void set_xray_conf irm(void) { } 

void set_xray_disconf irm(void) { } 

void add_break (void) { } 

void add_j)arse_negat ion (void) { text_str += "NEG "; } 

void add_parse_instruct (void) { text_str += "INS "/ } 

void add_j)arse_loc (int loc) { text_str += "LOG "; } 

void add_j)arse_ordinal (int ord) { text_str += "ORD "; } 

void add_parse_severity (int sev) { text_str += "SEV } 

void add_par se_c a rdinal (double card) { text_str += "CARD " ; } 

void add_parse_size (double size) { text_str += "SIZE"; } 

void add_parse_size_scale (int size) { text_str += "SIZE_SCALE" ; } 

void add_j)arse_temp_cardinal (double card) { text_str += "TEMP_CARD 

"; } 

void add_j)arse_temp_rel (int rel) { text_str += "TEMP_REL "/ } 

void add_j>arse_temp_scale (int scale) { text_str += "TEMP_SCALE "; } 

void add_parse_bodysurf_cardinal (double card) { text_str += 
"BODY_CARD "; } 

void add_j)arse_bodysurf_rel (int rel) { text_str += "BODy_REL "; } 

void addj>arse ^probability (int prob) { text_str += "PROB "; } 

void add_parse_evidence (int evid) { text_str += "EVID "; } 

void add_j5arse_diag_ordinality (int ord) { text_str += "DIAG_ORD "; } 

void add_parse_status (int stat) { text_str += "STAT "; } 

void add_j)arse_etiology (int eti) { text_str += "ETI "/ } 

void add_j>arse_diagnostic (int diag) { text_str += "DIAG " ; } 

CPTCoderClass 0 : text_str ( " " ) , key_str("") { 
} 

-CPTCoderClass ( ) { 

cout << text_str << endl; 
cout << key__str << endl; 

} 

}; 

#endif 

#ifndef LEXER 
#include " ccoder . h" 
#include "cparse_item. h" 
#undef ECHO 
#define ECHO 1 
#undef YY_INPUT 

#define YY_INPUT (buf, result , max_size) \ 

CPTCoder.code_lexer .get (buf , max_size, EOF); \ 

result = CPTCoder.code_lexer .gcount 0 ; \ 

CPTCoder . code_lexer . accumulate ( result ) ; 
#endif 

extern CPTCoderClass CPTCoder; 
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extern int yylexO; 
int yy_temporal = 0; 
int yy_bodysurf = 0; 
int yy__measure = 0; 
%} 

SP ([ ]+) 

DISCARD (thejajhis |her I [\"] ) {SP} 

DISCHARGE ( ( (not{SP} (be{SP} | being{ SP} ) ? ) |no{SP} |\\ 
(request (ing | ed | s) ? {SP} ) ) (admit | admitted | admitting | admission) ) 
SENT (was{SP} [ will ( {SP}be) ?{SP}) ?\\ 

( sent I send | take | taken | took | move | moved | moving) ( { SP } (by | to | for | into { SP } ) ) 
ADMIT 

(was{SP} I will ( {SP}be) ?{SP} ) ? (admit | admitted | admitting | admission) ( 

{SP}\\ 

(by| to|for |into{SP}) ) ? 

SURGERY ( {SENT} | { ADMIT} ) surgery 

FIELD_WORK ( (in|at) {SP} (the{SP}) ?\\ 

(field I ambulance | life{SP} flight | helicopter | police {SP} car | squad {SP} car | n 
ursing{SP}home) |\\ 

(by{SP} ) ? (the{SP} ) ? (they | them| emt | ams | medics? | paramedics? | rescue{SP} squ 

ad I ambulance) |\\ 

before {SP}arriv (al | ing) ) 

DOCTOR (neurologist | orthopod | ortho (pod |pedic) ? {SP}\\ 

(surge (ry |on) | team| tech (nicians?) ? | technicians?) ) 
PHY_ASST (PA I physician • ?s?{SP}assistant I p{SP}\ . {SP}a{SP}\ . ) 
RAD_READ1 

(radiolog (ist |y) {SP} (read| interpret (ed) ?) | (per | read| interpret (ed) 
?){SP}\\ 

{as{SP}negative{SP}) ? { (by|of ) {SP}) ? (the{SP}) ?radiolog (ist | y) ) 
RAD_READ2 

( (per I read| interpret (ed) ?) {SP}as{SP}negative{SP}for{SP} ( (fracture 

{SP}\\ 

(and I or) { SP} dislocate { SP } ) | ( fracture {SP} ) | (dislocate {SP} ) ) ( (by |of ) {SP}) 

?(the{SP})?\\ 

radiolog (ist | y) ) 

ED_READ1 

(radiolog (ist |y) {SP} ( (was|is) {SP} ) ? (of f {SP}duty | not {SP}available | 

W 

unavailable |not{SP}on{SP}duty) | (not? [ 

Iradiolo) | radiolog (y | ist) {SP} (was {SP} ) ? (not | un) ) 

ED_READ2 

( (E\ . ? {SP} ? [DR] \ . ? {SP}physician | emergency { SP} department { SP} physic 
ian|l)\\ 

{SP} (read I interpret (ed) ?) | (per | read | interpret (ed) ?) {SP} ( (by|of ) {SP}) ? (t 
he{SP})?\\ 

(E\ . ? {SP} ? [DR] \ . ? {SP}physician I emergency {SP} department {SP} physician I me | 
myself) ) 
SELF 

{l{SP} I l{SP} , |me{SP} |by{SP}me|myself |by{SP}myself | I { SP}myself ) 
PLAN (plan: |plan{SP} |plan{SP}to|plan{SP}is{SP}to| \\ 

may{SP}be{SP}necessary |may{SP}be{SP}needed|may{SP} (ultimately | eventual 1 

y|\\ 

some [ ] ?day | some [ 

]?time) {SP}be{SP}necessary |may{SP} (ultimately | eventually | \\ 
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some [ ] ?day I some [ ] ?time) {SP}be{SP}needed) 
CONSIDER 

(considered{SP} | consider{SP} | consideration{SP} |deemed{SP} | \\ 
deem{SP} |discuss{SP} | discussed{SP} | discussion{SP} ) 
CANCEL 

( cancelled {SP} | cancel {SP} | cancell?ing{SP} | discontinued? {SP} ) 
REFUSE {refused{SP} | refusing{SP} |refuses{SP} |refuse{SP}) 

WILL (will{SP}) 



PATIENT (she{SP} |he{SP}) 

P0SSIBLE_11 {"unable to altogether rule out"|\\ 

"unable to completely rule out" | "can not rule out" ["cannot rule out"|\\ 
"cannot altogether exclude" | "cannot completely exclude" | "can not 
exclude" | \\ 

"could also be" I "could be" | "evidence 
of" I "possible" | "possibly" | "questionably" | \\ 
"questionable" | "question" | "suspect" | "doubt") 
POSSIBLE_10 ("suspected") 
POSSIBLE_01 ( "doubtful " | "doubted" ) 

PR0BABLE_11 ("probable" | "probably" | "likely" | "clearly") 

PROBABLE_10 ( " apparent " ) 

RULE_0UT_11 ("rule out" | "no evidence of") 

RULE_OUT_10 ( "unfounded" ) 

RISK_0F_11 ("low risk for" | "low risk of" | "at-risk for" | "at risk 

for" I "at-risk of " | "at risk of" | "risk of") 

VS_0011 ("vs. " I "vs " I "versus" I "verses") 

NOT_IN_ER_01 (no(t|ne)?[ ] eviden ( t | ce (d) ? ) [ ] in [ 

] (emergency I ER) \\ 

[ ] ( room I department | dept ( \ . ) ? ) 

EVIDENCED_11 ( "evidenced" ) 

EVIDENCE_01 ("evidence ") 

ALLEGED_00 ("alleged by patient " | "per patient" | "by patient") 

ALLEGED_11 ("patient alleged" | "alleged" | "patient 

alleges" ( "alleges" | \\ 

"allege " | "patient also reports" | "patient also reported" | "patient 
reports" | \\ 

"patient reported" | "patient also states" | "patient also stated" | "patient 
states" |\\ 

"patient stated" | "stated "["reported ") 

ATTEMPT (attempt (ed[ ] to [ ])?) 

DENIED_00 ("denied by patient") 

DENIED_11 ( "patient denied" | "denied" | "patient 

denies" | "denies" | "deny") 

STATUS_P0ST_11 ("status post") 

P0ST_11 ("post " I "following" | "after") 

HIST0RY_0F__11 ("history of" | "historic" | "history") 

HISTORY_OF_00 ("by history" j "in the past") 

0LD_11 ("old "["previous ") 



Page# 



Appendix B 



PRIMARY_11 

SECONDARY_00 

NUMBER 

NUMBER_11 

SECONDARY_TO 

SECONDARY 11 



( "primary") 

("secondary to") 
([0-9] + (\. [0-9]+)?) 

( (number t ]|[ ]no.[ ]?) {NUMBER} ) 

({SECONDARY__00} [ ] {NUMBER_11 } ) 
("secondary") 



NONDISPLACED_10 

SUBACUTE_11 

ACUTE_11 

CHR0NIC_11 

EPIS0DIC_11 

FIRST_11 

SEC0ND_11 

THIRD_11 

F0URTH_11 

FIFTH_11 

SIXTH_11 

SEVENTH_11 

EIGHTH_11 

NINETH_11 

TENTH_11 

ELEVENTH_11 

TWELVETH_11 

THIRTEENTH_11 

F0URTEENTH_11 

FIFTEENTH_11 

SIXTEENTH_11 

HEALING_00 

HEALED_00 

IMPROVING_00 

IMPROVED_01 

RESOLVED_00 

RESOLVING_00 

INDUCED_11 

S IMPLE_REPAIR_0 1 

REPAIRED_01 

REPAIRING_01 

REPAIR_01 

REDUCED_01 

REDUCING_01 

REMOVED_10 

UNTREATED_01 

TREATED_WITH_0 Oil 

TREATED_01 

UNSUCCESSFUL 10 



( "nondisplaced" ) 
( "subacute" ) 
("acute") 
( "chronic" ) 

("periodic " | "episodic" | "binge" | "occasional") 

((lst|first) ([ ] I-)) 

( (2nd| second) ([ ] |-)) 

((3rd| third) ([ ] I-)) 

((4th|fouth) ([ ] I-)) 

((5th| fifth) ([ ] I-)) 

((6th I sixth) ([ ] I-)) 

( (7th I seventh) ( [ ] |-)) 

((8th| eighth) ([ ] I-)) 

( (9th|ninth|nineth) ( [ ]|-)) 

(dOth-l tenth) ([ ] I-)) 

( (11th I eleventh) ( [ ] | - ) ) 

( (12th| twelvthi twelveth) ( [ ]|-)) 

( (13th I thirteenth) ( [ ]|-)) 

( (14th I fourteenth) ( [ ]|-)) 

( (15th I fifteenth) ( [ ] | -) ) 

( (16th I sixteenth) ( [ ] | -) ) 

"healing") 
"healed") 

("improving") 
"improved" ) 
"resolved" | "resolve") 

( "resolving" ) 

"induced" ) 
"simple repair") 
" repaired") 

("repairing") 
"repair" ) 
"reduced") 
"reducing" ) 
"removed") 

("untreated") 
"treated with") 
"treated") 
"unsuccessful" ) 



ETIOLOGY ("etiology" | "origin" | "nature") 

ETIOLOGY_UNCERTAIN_01 ({ETIOLOGY} [ ] unclear] {ETIOLOGY} [ 
] uncertain I {ETIOLOGY} \\ 

[ ] considered] {ETIOLOGY} [ ] unspecified | question (able) ? [ 
] {ETIOLOGY} |unsure\\ 

[ ] {ETIOLOGY} I unknown [ ] {ETIOLOGY} | unsure [ ] of [ 
] {etiology} lunspecif ied\\ 
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[ ] {etiology} I uncertain [ ] {ETIOLOGY} | of [ ]uncertain[ ] {ETIOLOGY}) 



ETIOLOGY_10 
ORIGIN_00 
ORIGIN_01 
NATURE 00 



( "etiology" I "in etiology") 
("in origin") 
("origin" | "due to") 
("in nature") 



DRUG_SCREEN_11 
ACCU_CHECK_11 
VDRL 11 



("drug screen" 
( "accu-check" ) 
( "vdrl " ) 



RIGHT_1 
LEFT_1 
B0TH_1 
BILATERAL 1 



("right") 
("left") 
("both") 
("bilateral") 



AVOID 11 

CONSULTATION_ 

CONSULT 11 

FOLLOWING_UP_ 
FOLLOW UP 01 



("avoid") 
01 ( "consultation" ) 

("consult" I "consulted") 
1 (following([ ]|-)up) 

( (follow-up I follow [ 
]up|followup|f\/u|F\/U|recheck|return) [ ] ( [^i] [a-z\-] + [ 
]) {0,5} (in|next) [ ]) 



(recheck [ ] (if | after | when | next | in | with | on) ) 
("refrain") 

("referred") 
("refer") 

(" returned") 
(" return") 



RECHECK 11 

REFRAIN 11 

REFERRED 11 

REFER 11 

RETURNED 11 

RETURN 11 
INSTRUCTED 11 

("instructing" | "instructed" | "instructed" | "instruction" | "instructions" | " 
says to" I "said to" | "told" | "suggest" | "suggestion" | "suggesting") 
ADMONISHED 11 { "admonished" ) 

WITH_0011 ("associated with" | "with associated" | "with ") 

NOT_11_WITH_0011 ("without" I "not with " | "with none " | "with no ") 



BUT_11 
HOWEVER 11 



("but " I "although ") 
("however ") 



N0_01 
NOT_10 
NO 11 



("none ") 

("not " I "never ") 

("no ") 



PERIOD_00 
PERIOD_10 
PUNC_10 
PUNC 11 



(\. [ \t]*\n) 
{\. [ \t]+) 

( " : " I " ; " ) 

(" , " ) 



DASH 

PERCENT 

TERM 



(V 



("-") 
( " % " ) 

:;/\n\t]+) 



%% 

{DISCARD} 



{ } 



{DISCHARGE} { CPTCoder . addjparse_negation () ; } 
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{admit} 

{surgery} 

{field_work} 
{rad_readi} 

{RAD_READ2} 

{ed_readi} 

{ED_READ2} 

{doctor} 
{phy_asst} 

{self} 

negation set by 

{doctor} for the 

{plan} \ 

{consider} \ 

{cancel} \ 

{refuse} \ 

{will} \ 

{patient} 

} 



CPTCoder . set_admit ( ) ; 

CPTCoder .add_parse_negation() ; 
CPTCoder . set_admit ( ) ; 

CPTCoder .add_j)arse_negation() ; 
CPTCoder . add__parse_negat ion { ) ; } 
CPTCoder . set_xray_dis confirm { ) ; 

CPTCoder . add_j)arse_negation ( ) ; 
CPTCoder . set_xray_dis confirm { ) ; 

CPTCoder . add_parse_negation ( ) ; 
CPTCoder . set_xray_conf irm ( ) ; } 
CPTCoder . set_xray_confi rm ( ) ; } 
CPTCoder . add_parse_negat ion {) ; } 
CPTCoder . set_pa { ) ; 
CPTCoder . add_j5arse_negat ion ( ) ; 



{ CPTCoder . add_j)ar se_t ext ( { char 
/* need a function that 

{doctor} 

and will not allow a 

current phrase */ } 
CPTCoder . add_parse_negation ( ) 
CPTCoder . add_parse_negation ( ) 
CPTCoder . add_parse_negation ( ) 
CPTCoder . add_parse_negation ( ) 
CPTCoder . add_parse_negation ( ) 



*)yytext, 
will turn 



"myself") 
off a 



negation to be set by 



} 



{ CPTCoder .add_parse_text ( (char *)yytext, "patient"); 



T 

LT 

CPTCoder . add_parse 
JUNK 

0) ; } 
MT 

1) ; } 

MN 

CPTCoder . add_parse 
HR 

CPTCoder . add_parse 
DA 

CPTCoder . add__parse 
WK 

CPTCoder . add_parse 
MO 

CPTCoder . add__parse 
YR 

CPTCoder . add_parse 



S--- 
LT 

CPTCoder . add_j>arse 
JUNK 

CPTCoder . add_parse 



{ yy_temporal = 1; 
{ yy_temporal = 0; 
{ if (yy_temporal) 
_temp_rel (-1) ; } 

{ if (yy__temporal) 



CPTCoder . add_j)arse_temp_rel ( 



{ if (yy_temporal) CPTCoder . add_parse_temp_rel ( 



temp_ 
temp_ 
temp 
temp 
temp 
temp_ 



{ if (yy. 

scale (1) 

■{ if (yy. 

scale (2) 

■{ if (yy. 

scale (3) 

"{ if (yy. 

scale (4) 

'{ if (yy. 

scale (5) 

"{ if (yy. 

scale (6) 



_temporal) 

} 

temporal) 

} 

temporal) 

■ } ■ 

temporal) 

} 

temporal) 

} 

temporal) 

} 



{ yy_bodysurf = 1; 

{ yy_bodysurf = 0; 

{ if (yy_bodysurf ) 
_bodysurf_rel (-1) ; } 

{ if {yy_bodysurf ) 
bodysurf _rel { 0); } 
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MT {if (yy_bodysurf ) 

CPTCoder . add jparse_body surf __rel ( 1); } 

L { yy_tneasure = 1; } 

L { yy_measure =0; } 

MM {if (yy_measure) 

CPTCoder . add_parse_size_scale (1) ; } 

CM {if (yy_measure) 

CPTCoder . add_j)arse_size_scale (2) ; } 

IH {if (yy_measure) 

CPTCoder .add_j)arse_size_scale (3) ; } 



{POSSIBLE_ll} 
{POSSIBLE_10} 
{POSSIBLE_0l} 
{PROBABLE_ll} 
{PROBABLE_10} 
{RULE_OUT_ll} 

{rule_out_io} 

{RISK_0F_11} 
{VS_001l} 

{not_in_er_oi} 

{evidenced_ii} 

{evidence_oi} 

{alleged_oo} 

{alleged_ii} 

{attempt} 

{denied_oo} 
{denied_ii} 



{ STATUS_P0ST_11 } 
post") ; 



{POST_ll} 

{history_of_ii} 
{history_of_oo} 

{OLD_ll} 
"no") / 



{secondary_to} 



{SECONDARY_00} 
"secondary" ) ; 



{ CPTCoder . add_j)arsejprobability ( 3 ) 

{ CPTCoder . add_parse_probability ( 3 ) 

{ CPTCoder . add_j)arse_probability ( 3 ) 

{ CPTCoder . add_parse_probabili ty (4 ) 

{ CPTCoder . add_parse_probability (4 ) 

{ CPTCoder . add_parse_probability ( 1 ) 

{ CPTCoder . add_j)arse_probability ( 1 ) 

{ CPTCoder. add_parse_probability (2) ; } 

{ CPTCoder. add_j)arse_key{VS, "_0011_") ; 

CPTCoder. add_j)arse_probability(l) ; } 

{ CPTCoder . add_j)arse_evidence (2 ) ; } 

{ CPTCoder . addjparse_evidence (4) ; } 
{ CPTCoder . add_j)arse_evidence (4) ; } 
{ CPTCoder . add__parse_evidence { 3 ) ; } 
{ CPTCoder . add_parse_evidence { 3 ) ; } 
CPTCoder . add_j)arse_text { ( char * ) yytext , " attempt " ) ; 
CPTCoder. add_par se_negati on 0 ; 
/* dth - added 3/11/98 */ } 
CPTCoder . add_parse_evidence (1) ; 

CPTCoder . add_j)arse_negation ( ) ; } 
CPTCoder . add_j)arse_evidence (1) ; 

CPTCoder . add_parse_negat ion ( ) ; } 

CPTCoder . add_j)arse_text ( { char * ) yytext , " status 

CPTCoder. add_parse_negation{) ; 
/* dth - negated on 3/11/98 */ } 
CPTCoder .add_j)arse_text ( (char *)yytext, "post"); } 
{ CPTCoder . add_j>arse_negat ion ( ) ; } 
{ CPTCoder.add_parse_negation() ; } 
CPTCoder . add_j)arse_key (NO, "_01_" ) ; 

CPTCoder . add_j)arse_text ( (char * ) yytext , 

CPTCoder . add_j)arse_negation () ; } 

{ CPTCoder. add_jparse_diag_ordinality (2) ; 
CPTCoder . add_j)arse_negat ion ( ) ; 
CPTCoder. add_j)arse_key (PERIOD, "_10_") ; } 
{ CPTCoder. add_j)arse_text ( (char *)yytext, 

CPTCoder . add_j)arse_negation ( ) ; 
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{SECONDARY_ll} 
"secondary") ; 



{PRIMARY_ll} 
"primary" ) ; 



{ACUTE_ll} 

{CHRONIC_ll} 
"chronic" ) ; 

{EPISODIC_ll} 
"episodic" ) ; 



{FIRST_11} 

{SECOND_ll} 

{THIRD_11} 

{F0URTH_11} 

{FIFTH_11} 

{SIXTH_ll} 

{SEVENTH_ll} 
"seventh" ) ; 

{EIGHTH_ll} 

{NINETH_ll} 

{TENTH_11} 

{ELEVENTH_ll} 
"eleventh") ; 

{ TWELVE TH_ll} 
"twelveth") ; 

{THIRTEENTH_11} 
"thirteenth") / 

{FOURTEENTH_ll} 
"fourteenth") / 

{FIFTEENTH_11} 
"fifteenth") ; 

{SIXTEENTH_ll} 
"sixteenth") ; 



CPTCoder . addjiarse_diag_ordinality (2 ) ; 
CPTCoder . add jarse_key (PERIOD, "_10_" ) ; } 
{ CPTCoder . addjar se_text ( ( char * ) yy text , 

CPTCoder . add_j)arse_negation ( ) ; 
CPTCoder . add_j)arse_diag_ordinality (2) ; } 
{ CPTCoder .add_parse_text ( (char *)yytext, 

CPTCoder . add_parse_diag_ordinality (1) ; 
CPTCoder .add_j)arse_severity (2) ; } 
{ CPTCoder .add_parse_text ( (char *)yytext, "acute"); 
CPTCoder . add_parse_severity (1) ; } 
{ CPTCoder . add_j)arse_text ( (char *)yytext, 

CPTCoder .add_parse_severity (3) ; } 
{ CPTCoder .add_parse_text ( (char *)yytext, 



CPTCoder .add_parse_severity (4) ; } 



CPTCoder . add_j)arse_text ( 

CPTCoder . add_parse 
CPTCoder . add j)arse_text ( 

CPTCoder . add_parse 
CPTCoder . add_parse_text ( 

CPTCoder . add_parse 
CPTCoder . addjparse_text ( 

CPTCoder . add_parse 
CPTCoder . add_parse_text ( 

CPTCoder . add_parse 
CPTCoder . add_j)arse_text ( 

CPTCoder . addjarse 
{ CPTCoder . add_j)arse 



"first") 



(char *)yytext, 
_ordinal (1) ; } 
(char *)yytext, 
_ordinal (2) ; } 
(char *)yytext, 
_ordinal (3 ) ; } 
(char *)yytext, 
_ordinal (4 ) ; } 
(char *)yytext, 
_ordinal (5) ; } 
(char *)yytext, 
_ordinal (6) ; } 
_text ( (char *) yytext , 



"second") ; 
"third") ; 
"fourth") ; 
"fifth") ; 
"sixth") ; 



CPTCoder . add_j5arse_ordinal ( 7 ) ; } 
{ CPTCoder .add_j)arse_text ( (char *)yytext, "eighth"); 

CPTCoder . add_j)arse_ordinal ( 8 ) ; } 
{ CPTCoder .add_j)arse_text ( (char *)yytext, "nineth"); 

CPTCoder . add_jparse_ordinal (9) ; } 
{ CPTCoder .add_parse_text ( (char *)yytext, "tenth"); 
CPTCoder .add_j)arse_ordinal (10) ; } 
CPTCoder . add_parse_text ( (char *)yytext, 

CPTCoder .add_j)arse_ordinal (11) ; } 
CPTCoder .add_j)arse_text ( (char *)yytext, 

CPTCoder . add__parse__ordinal ( 12 ) ; } 
CPTCoder . add_parse_text ( (char * ) yytext , 

CPTCoder . add_jparse_ordinal ( 13 ) ; } 
CPTCoder . add_j)arse_text ( (char * ) yytext , 

CPTCoder . add_j)arse_ordinal ( 14 ) ; } 
CPTCoder . add_j)ar se_text ( ( char * ) yytext , 

CPTCoder . add_j)arse__ordinal ( 15 ) ; } 
CPTCoder . add_j)arse_text ( (char * ) yytext , 
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CPTCoder . add_parse_ordinal (16) ; } 



{HEALING_00} 
{HEALED_00} { 

{improving_00} 
{improved_01} 
{resolving_00} 
{resolved_oo} 

{IMDUCED_11} 
"induced" ) ; 

{SIMPLE_REPAIR_Ol} 
"repair") ; 

{repaired_oi} 
"repaired" ) ; 

{repairing_oi} 

"repairing" ) ; 

{REPAIR_01} { 

{REDUCED_01} 
"reduced" ) ; 

{REDUCING_01} 
"reducing" ) ; 

{REMOVED_10} 
"removed") ; 

{UNTREATED_01} 

{ TREATED_WITH_0 011} 

"treated with") ; 

{TREATED_01} 
{UNSUCCESSFUL_10} { 



{ CPTCoder .add_parse_status (101) ; } 
CPTCoder. add_j)arse_status (111) ; } 

{ CPTCoder .add_parse_status (102) ; } 

{ CPTCoder .add_j>arse_status (112) ; } 

{ CPTCoder .add_parse_status (103) ; } 

{ CPTCoder .add_parse_status (113) ; } 
{ CPTCoder .add_j)arse_text ( (char *)yytext, 

CPTCoder . addjparse_status (6) ; } 
{ CPTCoder . add_j)arse_text ( (char *)yytext, 

CPTCoder .add_j)arse_status (5) ; } 
{ CPTCoder . add_j)arse_text ( ( char * ) yytext , 

CPTCoder . add_j)arse_s tatus ( 5 ) ; } 
{ CPTCoder .add_parse_text { (char *)yytext, 

CPTCoder . add_j)arse_s tatus ( 114 ) ; } 
CPTCoder. addjparse_text ( (char *) yytext, "repair") ; 
CPTCoder . add_parse_s tatus (5) ; } 
{ CPTCoder . add_parse_text ( (char * ) yytext , 

CPTCoder . add jparse_s tatus (4 ) ; } 
{ CPTCoder .add_parse__text ( (char *)yytext, 

CPTCoder . add_parse_s tatus ( 115 ) / } 
{ CPTCoder .add_j)arse_text ( (char *)yytext, 

CPTCoder .add_parse_s tatus (3) ; } 
{ CPTCoder . add_j)arse_s tatus ( 1 ) ; } 
{ CPTCoder .add_parse_text ( (char *)yytext, 

CPTCoder . add_j)arse_s tatus ( 2 ) ; } 
{ CPTCoder .add_parse_s tatus (2) ; } 
CPTCoder . add_parse_s tatus (1) ; } 



{ETIOLOGY_UNCERTAIN_01} { CPTCoder. add_j)arse_etiology (1) ; } 



{ETIOLOGY_10} 
{ORIGIN_00} 
{ORIGIN_0l} 
{NATURE_00} 

{ DRUG_SCREEN_1 1 } 

"drug_screen") ; } 
{ACCU_CHECK_11} 



{ CPTCoder. add_parse_etiology (2) ; } 
{ CPTCoder. add_j)arse_etiology (3) ; } 
{ CPTCoder. add_parse_etiology (3) ; } 
{ CPTCoder . add_parse_etiology (4) ; } 



"accu_check" ) 
{VDRL_ll} 

"vrdl"); } 

{RIGHT_1} 

{LEFT_1} 

{B0TH_1} 



} 



{ CPTCoder .add_parse_diagnos tic (I) ; 

CPTCoder . add_j)arse_text ( (char *) yytext, 

{ CPTCoder . add_j)arse_diagnos tic (1) ; 

CPTCoder . add_par se_t ext ( ( char * ) yytext , 

{ CPTCoder. add_j)arse_diagnostic (1) ; 

CPTCoder. add_parse_t ext ( (char *) yytext. 



{ CPTCoder .add_parse_loc (1) ; } 
{ CPTCoder . add_parse_loc ( 0 ) ; } 

{ CPTCoder.add_j>arse_text ( (char *)yytext, "both") ; 
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{BILATERAL_l} 
"bilateral") ; 



{AVOID 11} { 

{ CONSULTATION 0 1 } 

"consultation") ; 

{CONSULT 11} 

"consult") ; 

{FOLLOWING_UP l} { 

up") ; 

{F0LL0W_UP 01} 

" follow-up") ; 



{RECHECK 11} 

" recheck" ) ; 



{REFRAIN 11} 

"refrain") ; 

{REFERRED 11 } 

"referred") ; 

{REFER 11} { 

{RETURNED 11 } 

"returned" ) ; 

{RETURN 11} 
"return") ; 

{INSTRUCTED 11} { 

"instruct") ; 

{ADMONISHED 11 } { 

"admonished" ) ; 



{ N0T_1 1__WITH_0 011} 
with") ; 

{BUT_ll} { 
{HOWEVER_ll} 

{NO_01} 
"no") / 

"no") ; 



CPTCoder . add_j)ar se_loc ( 2 ) ; } 
{ CPTCoder . add_j)arse_text ( (char *)yytext, 

CPTCoder . add_parse_loc (2) ; } 

CPTCoder .add_j)arse_text ( (char *)yytext, "avoid") ; 
CPTCoder . addjparse_instruct { ) ; 
{ CPTCoder . add_par se_t ext { ( char * ) 



CPTCoder . add_j)arse_instruct ( ) ; 
{ CPTCoder . add_j)arse_text { (char * 



CPTCoder . add_j)arse_instruct ( ) ; 
CPTCoder .add_j)arse_text { (char *)yytext, "following- 



CPTCoder .add_j)arse_instruct () ; 
{ CPTCoder .add_j)arse_text ( (char * 

CPTCoder. add_parse_negat ion 0 ; 
CPTCoder .add_j)arse_ins true t () ; 
{ CPTCoder .add_j)arse_text ( (char * 

CPTCoder . add_j)arse_negat ion ( ) ; 
CPTCoder . add__parse_ins truct ( ) ; 
{ CPTCoder .add_parse_text ( (char * 

CPTCoder . add_parse_ins truct ( ) ; 
{ CPTCoder . add_j)arse_text ( (char * 



CPTCoder . add_parse_instruct ( ) ; 
CPTCoder .add__parse_text ( (char *)yytext, "refer") ; 
CPTCoder . add_parse_instruct ( ) ; 
{ CPTCoder . add_j)arse_text ( ( char * ) 



CPTCoder . add_parse_instruct ( ) ; 
{ CPTCoder . add_parse_text { (char * 



CPTCoder . add_parse_instruct ( ) ; 
CPTCoder . add_parse_text ( ( char * ) yy text , 

CPTCoder .add_j)arse_instruct () ; 
CPTCoder . add_j)arse_text ( ( char * ) yy t ext , 

CPTCoder . add_parse_ins truct ( ) / 



{ CPTCoder .add_parse_key (NO, "_11 
CPTCoder . add_j)arse_text ( (char * 

CPTCoder .addjparse_negat ion 0 ; 
CPTCoder . add_parse_key (BUT, "__11_" ) / 
{ CPTCoder. add_j)arse_key (HOWEVER, 

{ CPTCoder .add_j)arse_text ( (char * 

CPTCoder . add_j)arse_key (NO, "_01 
CPTCoder . add_j)arse_text ( (char * 



yytext , 
yytext , 



yytext, 

yytext, 

yytext , 
yytext , 



yytext , 
yytext. 



yytext, "not 

"_11_"); } 
yytext, 

yytext. 
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{NOT_10} 



"not") ; 

{N0_11} 
"no") ; 



"no") ; 

{PERIOD_00} 

{PERIOD_10} 

{PUNC_10} 
{PUNC_ll} 

[\n] + 
[ \t] + 

{dash} 
{percent} 

} 

{number} 



CPTCoder . add_parse_negation ( ) ; } 
{ CPTCoder. add_j)arse_text ( (char *)yytext, "not") ; 
CPTCoder. add_j)arse_key (NO, "_10_") ; 
CPTCoder . add_parse_text ( (char *)yytext, 

CPTCoder . add_j)arse_negat ion ( ) ; } 
{ CPTCoder . add_parse_text ( ( char * ) yytext , 

CPTCoder . add_j)arse_key (NO, ) ; 

CPTCoder . add_par se_t ext ( ( char * ) yytext , 

CPTCoder . add_parse_negat ion { ) ; } 

{ CPTCoder .add_parse_key( PERIOD, "_00_") ; 

CPTCoder . add_break ( ) ; } 
{ CPTCoder .add j>arse_key( PERIOD, "_10_") ; 

CPTCoder . add_break () ; } 
{ CPTCoder. add_j)arse_key(PUNC, "_10_") ; } 
{ } 

{ } 
{ } 
{ } 

{ CPTCoder . add_parse_text ( (char *)yytext, "percent"); 
{ if (yy_temporal) { 



CPTCoder .add_j)arse_temp_cardinal (atof ( (char *) yytext) ) / 

} 

else if (yy_bodysurf ) { 
CPTCoder . add_parse_body surf _cardinal (atof { (char *) yytext) ) ; 

} 

else if (yy_measure) { 

CPTCoder . add_parse_size (atof ( (char 



*) yytext) ) ; 

*) yytext) ) ; 
(char *) yytext) 



{term} 

*) yytext); } 
EOT 

#ifdef LEXER 
#endif 



} 

else { 

CPTCoder .add_j)arse_cardinal (atof ( (char 



CPTCoder . add_parse_text { (char * ) yytext , 



} 



} 

{ CPTCoder . add_parse_text { (char *)yytext, (char 



{ 



CPTCoder .parse_procedure 0 ; 



%% 

int yypositionO { return (strlen ( (char *) YY__CURRENT_BUFFER- 
>yy__t>uf_pos) ) ; } 
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#ifdef LEXER 
CPTCoderClass CPTCoder; 

int 

main(int argc, char* argv[]) { 
return yylexO ; 

} 

#endif 
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